source('plothist.R')
p <- plot
plot <- lines
source('plotfdp.R')
plot <- p

